home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 October: Mac OS SDK / Dev.CD Oct 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / CMPRComponent.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  3.0 KB  |  117 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        CMPRComponent.a
  3. ;
  4. ;    Contains:    ColorSync ProfileResponder Components Interface 
  5. ;
  6. ;    Version:    Technology:    ColorSync 2.1
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1993, 1995, 1997 by Apple Computer, Inc. All rights reserved.
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__CMPRCOMPONENT__') = 'UNDEFINED' THEN
  19. __CMPRCOMPONENT__ SET 1
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  25.     include 'Quickdraw.a'
  26.     ENDIF
  27.     IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
  28.     include 'Components.a'
  29.     ENDIF
  30.     IF &TYPE('__CMAPPLICATION__') = 'UNDEFINED' THEN
  31.     include 'CMApplication.a'
  32.     ENDIF
  33.  
  34.  
  35. CMPRInterfaceVersion            EQU        0
  36. ;  Component function selectors 
  37.  
  38. kCMPRGetProfile                    EQU        0
  39. kCMPRSetProfile                    EQU        1
  40. kCMPRSetProfileDescription        EQU        2
  41. kCMPRGetIndexedProfile            EQU        3
  42. kCMPRDeleteDeviceProfile        EQU        4
  43.  
  44. ;
  45. ; pascal CMError CMGetProfile(ComponentInstance pr, CMProfileHandle aProfile, CMProfileHandle *returnedProfile)
  46. ;
  47.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  48.         Macro
  49.         _CMGetProfile
  50.             move.l              #$00080000,-(sp)
  51.             moveq               #0,D0
  52.             dc.w                $A82A
  53.         EndM
  54.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  55.         IMPORT_CFM_FUNCTION CMGetProfile
  56.     ENDIF
  57.  
  58. ;
  59. ; pascal CMError CMSetProfile(ComponentInstance pr, CMProfileHandle newProfile)
  60. ;
  61.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  62.         Macro
  63.         _CMSetProfile
  64.             move.l              #$00040001,-(sp)
  65.             moveq               #0,D0
  66.             dc.w                $A82A
  67.         EndM
  68.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  69.         IMPORT_CFM_FUNCTION CMSetProfile
  70.     ENDIF
  71.  
  72. ;
  73. ; pascal CMError CMSetProfileDescription(ComponentInstance pr, long DeviceData, CMProfileHandle hProfile)
  74. ;
  75.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  76.         Macro
  77.         _CMSetProfileDescription
  78.             move.l              #$00080002,-(sp)
  79.             moveq               #0,D0
  80.             dc.w                $A82A
  81.         EndM
  82.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  83.         IMPORT_CFM_FUNCTION CMSetProfileDescription
  84.     ENDIF
  85.  
  86. ;
  87. ; pascal CMError CMGetIndexedProfile(ComponentInstance pr, CMProfileSearchRecordHandle search, CMProfileHandle *returnProfile, long *index)
  88. ;
  89.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  90.         Macro
  91.         _CMGetIndexedProfile
  92.             move.l              #$000C0003,-(sp)
  93.             moveq               #0,D0
  94.             dc.w                $A82A
  95.         EndM
  96.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  97.         IMPORT_CFM_FUNCTION CMGetIndexedProfile
  98.     ENDIF
  99.  
  100. ;
  101. ; pascal CMError CMDeleteDeviceProfile(ComponentInstance pr, CMProfileHandle deleteMe)
  102. ;
  103.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  104.         Macro
  105.         _CMDeleteDeviceProfile
  106.             move.l              #$00040004,-(sp)
  107.             moveq               #0,D0
  108.             dc.w                $A82A
  109.         EndM
  110.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  111.         IMPORT_CFM_FUNCTION CMDeleteDeviceProfile
  112.     ENDIF
  113.  
  114.  
  115.     ENDIF ; __CMPRCOMPONENT__ 
  116.  
  117.